home *** CD-ROM | disk | FTP | other *** search
/ Logiciels PC Special 3 / Logiciel PC - Hors-Serie 3.iso / Logs / micros / ql / qlay083 / ft_bas next >
Text File  |  1997-08-24  |  326b  |  12 lines
  1. 100 CLS
  2. 110 d=60
  3. 120 PRINT 'Wait ';d;' seconds for -f test'
  4. 130 t=DATE
  5. 140 PAUSE d*50
  6. 150 e=DATE-t
  7. 160 PRINT 'Delay should be ';d;' seconds'
  8. 170 PRINT 'Actual delay is ';e;' seconds'
  9. 180 IF e-d>1:PRINT 'Divide -f by ';e/d
  10. 190 IF d-e>1:PRINT 'Multiply -f with ';d/e
  11. 200 IF ABS(d-e)<2:PRINT 'Current value of -f is about right'
  12.